AllowInsertingColumns Property

       

Specifies whether a worksheet column can be inserted when the worksheet has been protected. The default value is False, but this property has no effect if the Enabled property of the Protection object is set to False. Read/write Boolean.

expression.AllowInsertingColumns

expression   Required. An expression that returns a Protection object.

Example

This example locks all cells on Sheet1, and then it enables the insertion and deletion of columns, and then protects Sheet1.

Sub Protect_Worksheet()
    Dim ptProtSheet1

    'Lock all cells on the worksheet.
    Spreadsheet1.Worksheets("Sheet1").Cells.Locked = True
    
    Set ptProtSheet1 = Spreadsheet1.Worksheets("Sheet1").Protection
    
    ' Allows user to delete columns while Sheet1 is protected.
    ptProtSheet1.AllowDeletingColumns = True
    
    ' Allows user to insert columns while Sheet1 is protected.
    ptProtSheet1.AllowInsertingColumns = True
    
    ' Protect Sheet1.
    ptProtSheet1.Enabled = True
End Sub